﻿Imports System
Imports System.Drawing

Namespace System.Workflow.ComponentModel.Design
    Friend NotInheritable Class TabSelectionChangeEventArgs
        Inherits SelectionChangeEventArgs
        ' Methods
        Public Sub New(ByVal previousItem As ItemInfo, ByVal currentItem As ItemInfo, ByVal selectedTabBounds As Rectangle)
            MyBase.New(previousItem, currentItem)
            Me.selectedTabBounds = Rectangle.Empty
            Me.selectedTabBounds = selectedTabBounds
        End Sub


        ' Properties
        Public ReadOnly Property SelectedTabBounds As Rectangle
            Get
                Return Me.selectedTabBounds
            End Get
        End Property


        ' Fields
        Private selectedTabBounds As Rectangle
    End Class
End Namespace

